home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00234_Script_GESTION_D'UNE_INTERFACE_TOUT_EN_UN < prev    next >
Text File  |  2002-09-19  |  2KB  |  62 lines
  1. property pdizsprite, pdizspriteNo,  pdizguy_x0, pdizguy_y0, pdizguyname, pzeNoItemInterface
  2. global gNoItemInterface, gpiste_Interface, gpiste_Pseudo_Interface
  3. ----------------------
  4. on beginSprite me
  5.   pdizspriteNo = me.spriteNum
  6.   pdizsprite = sprite(pdizspriteNo)
  7.   pdizguyname = pdizsprite.member.name
  8.   pyBandeau = pdizsprite.locV 
  9.   gpiste_Interface = pdizspriteNo
  10. end
  11. ------------------
  12. on mouseEnter
  13.   if the pauseState = 1 then exit
  14.   pdizguy_x0 = pdizsprite.left
  15.   pdizguy_y0 = pdizsprite.top
  16.   x = the mouseH-pdizguy_x0
  17.   y = the mouseV-pdizguy_y0
  18. end
  19. -----------------------
  20. on mouseWithin
  21.   if the pauseState = 1 then exit
  22.   x = the mouseH-pdizguy_x0
  23.   y = the mouseV-pdizguy_y0
  24.   zecolor =  member(pdizguyname&"BIS").image.getPixel(x,y)
  25.   case(zecolor)of 
  26.     0:
  27.       puppetSprite gpiste_Pseudo_Interface,FALSE
  28.     otherwise:
  29.       zecolor.colorType = #paletteIndex
  30.       pzeNoItemInterface = zecolor.paletteIndex
  31.       case(pzeNoItemInterface) of
  32.         0,255:
  33.           puppetSprite gpiste_Pseudo_Interface,FALSE
  34.           cursor -1
  35.         otherwise:
  36.           cursor 280
  37.           sprite(gpiste_Pseudo_Interface).member = pdizguyname&"_"&gimme2digits(pzeNoItemInterface)&"_R"
  38.           sprite(gpiste_Pseudo_Interface).loc = pdizsprite.loc
  39.           updatestage
  40.       end case
  41.   end case
  42. end
  43. ---------------------
  44. on mouseLeave
  45.   if the pauseState = 1 then exit
  46.   puppetSprite gpiste_Pseudo_Interface,FALSE
  47.   cursor -1
  48. end
  49. ------------
  50. on mouseUp
  51.   if the pauseState = 1 then exit
  52.   gNoItemInterface = pzeNoItemInterface
  53.   do  "CLICK_SUR_INTERFACE_"&pdizguyname
  54. end
  55. ---------------------
  56. on mouseDown
  57.   if the pauseState = 1 then exit
  58.   gNoItemInterface = pzeNoItemInterface
  59.   do  "DOWN_SUR_INTERFACE_"&pdizguyname
  60. end
  61. -----------
  62.